home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / segue.exe / NPRINTER.PRG < prev    next >
Text File  |  1991-10-28  |  2KB  |  55 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: NPRINTER.PRG      Copyright: HRF Associates, Inc.                                     
  4. *   Date Created: 10/28/11           Language: Clipper                                             
  5. *   Time Created: 22:06:36             Author: Bob Fogle                                 
  6. *
  7. *.............................................................................
  8. * Supplemental SEGUE function for setting target printer number.
  9. * Functionally equivilent to N_PRINTER function in NETLIB library except it provides
  10. * for 4 server printers instead of 99.
  11. *
  12. FUNCTION NPRINTER_
  13. *Purpose : To specify target printer number.
  14. *Usage     : NPRINTER_([<expN1>])
  15. *        :
  16. * Where  : <expN1> = Printer number [1..4]
  17. *        :
  18. PARAMETERS prnter
  19. LOCAL mprnter
  20. PRIVATE rtn :=0
  21.  
  22. do while .t.
  23.   * Check to make sure passed variable types are correct.
  24.   if valtype(prnter)<>'N' .AND. prnter<>nil
  25.     rtn = -101
  26.     exit
  27.   endi
  28.  
  29.   * Set up defaults
  30.   mprnter =  if(valtype(prnter)=='N',prnter,0)
  31.   mprnter = if(mprnter=0,1,mprnter)  // Treat zero as one.
  32.  
  33.   * Get/Set prnter (form) number
  34.   if pcount()=0                // If no arguments, return current setting.
  35.     rtn = PRJBDFG(4)           // Get Default Print Job Flags (File Server Printer)
  36.   else
  37.     rtn = PRJBDFS(,,,mprnter)  // Set Default Print Job Flags (File Server Printer)
  38.   endi
  39.   exit
  40. endd
  41. RETURN rtn
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.